home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 019 / ratio16a.arc / RPC-RAT.MRG < prev    next >
Text File  |  1988-04-12  |  8KB  |  198 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RPC-CLR.MRG to produce RPC-MODS.MRG
  3. * RPC-CLR.MRG:  Date 4-12-1988  Size 32239 bytes
  4. * ------------[ Created 04-12-1988 19:59:56 ]------------
  5. * REPLACING old line(s) by new
  6. * ------------[ BLED merge (c) Ken Goosens ]-------------
  7. * Merge this against TEST\RBBS-PC.BAS to produce RBBS-PC.BAS
  8. * TEST\RBBS-PC.BAS:  Date 3-25-1988  Size 218024 bytes
  9. * ------------[ Created 04-12-1988 19:31:01 ]------------
  10. * ------[ first line different ]------
  11. * REPLACING old line(s) by new
  12. 815 DOWNLOADS = CVI(USER.DOWNLOADS$)
  13.     UPLOADS = CVI(USER.UPLOADS$)
  14. * ------[ first line different ]------
  15.     IF CURRENT.DATE$ <> LEFT$(LAST.DATE.TIME.ON.SAVE$,8) THEN
  16.        DL.TODAY! = 0                                                  'RATIO
  17.        BYTES.TODAY! = 0                                               'RATIO
  18.     ELSE
  19.        DL.TODAY! = CVS(TODAY.DL$)                                     'RATIO
  20.        BYTES.TODAY! = CVS(TODAY.BYTES$)                               'RATIO
  21.     END IF
  22.     DLBYTES! = CVS(DL.BYTES$)                                         'RATIO
  23.     ULBYTES! = CVS(UL.BYTES$)                                         'RATIO
  24.     LAST.MESSAGE.READ = -LAST.MESSAGE.READ * (LAST.MESSAGE.READ <= HIGH.MESSAGE.NUMBER)
  25.     LSET USER.OPTIONS$ = MKI$(TIMES.LOGGED.ON) + _
  26.                          MID$(USER.OPTIONS$,3)
  27.     LSET LAST.DATE.TIME.ON$ = CURRENT.DATE$ + _
  28.                               " " + _
  29.                               TIME.LOGGED.ON$
  30.     MID$(USER.RECORD$,START.HASH,LEN.HASH) = HASH.VALUE$
  31.     IF START.INDIV > 0 THEN _
  32.        MID$(USER.RECORD$,START.INDIV,LEN.INDIV) = INDIV.VALUE$
  33.     LSET USER.NAME$ = ACTIVE.USER.NAME$
  34.     IF NOT SUB.BOARD THEN _
  35.        ORIG.USER.FILE.INDEX = USER.FILE.INDEX
  36.     GOSUB 9440
  37.     GOSUB 12991
  38.     IF TURBO.LOGON THEN _
  39.        GOTO 821
  40.     IF NOT SAME.USER THEN _
  41.        STOP.INTERRUPTS = WELCOME.INTERRUPTABLE : _
  42.        BYPASS.TIME.CHECK = TRUE : _
  43.        FILE.NAME$ = WELCOME.FILE$ : _
  44.        GOSUB 1790
  45.     BYPASS.TIME.CHECK = FALSE
  46.     STOP.INTERRUPTS = FALSE
  47. * REPLACING old line(s) by new
  48. 817 IF REMIND.FILE.TRANSFERS AND NOT NEW.USER THEN _
  49. * ------[ first line different ]------
  50.        CALL CHECKRATIO (FALSE)                                         'RATIO
  51.     IF REMIND.PROFILE THEN _
  52.        GOSUB 5400 : _
  53.        CALL MOREYN (FALSE)
  54. * INSERTING new line(s)
  55. 9450 IF LOF(5) < 1 THEN _
  56.         DF$ = ACTIVE.USER.FILE$ : _
  57.         RETURN 13600
  58.      FIELD 5,31 AS USER.NAME$, _
  59.              15 AS PASSWORD$, _
  60.               2 AS SECURITY.LEVEL$, _
  61.              14 AS USER.OPTIONS$,  _
  62. * ------[ first line different ]------
  63.          24 AS CITY.STATE$, _
  64.           3 AS MACHINE.TYPE$, _
  65.           4 AS TODAY.DL$, _                                        'RATIO
  66.           4 AS TODAY.BYTES$, _                                     'RATIO
  67.           4 AS DL.BYTES$, _                                        'RATIO
  68.           4 AS UL.BYTES$, _                                        'RATIO
  69.              14 AS LAST.DATE.TIME.ON$, _
  70.               3 AS LIST.NEW.DATE$, _
  71.               2 AS USER.DOWNLOADS$, _
  72.               2 AS USER.UPLOADS$, _
  73.               2 AS ELAPSED.TIME$
  74.      FIELD 5,128 AS USER.RECORD$
  75.      RETURN
  76. '
  77. ' *****************************************************************************
  78. ' * GET USER DEFAULTS                                                         *
  79. ' *****************************************************************************
  80. '
  81. * REPLACING old line(s) by new
  82. * ------[ first line different ]------
  83. * INSERTING new line(s)
  84. 11105    CALL QTPUT (A$,1)
  85.          IF RET <> 0 THEN _
  86.             GOTO 11330
  87.          IF NOT RESTRICT.BY.DATE THEN _
  88.             GOTO 11107
  89. * ------[ first line different ]------
  90.      GOSUB 11480
  91.      A$ = "Download Bytes  =" + STR$(CVS(DL.BYTES$)) + _           'RATIO
  92.           "  Upload Bytes  =" + STR$(CVS(UL.BYTES$)) + _           'RATIO
  93.           "Downloads Today =" + STR$(CVS(TODAY.DL$)) + _           'RATIO
  94.           "    Bytes Today =" + STR$(CVS(TODAY.BYTES$))            'RATIO
  95.      IF QQ THEN _                                                  'RATIO
  96.         CALL PRINTIT (A$)                                          'RATIO
  97.          A$ = "Registration date = " + _
  98.               REG.DISPLAY.DATE$
  99.          IF QQ THEN _
  100.             CALL PRINTIT (A$)
  101.          CALL QTPUT (A$,1)
  102.          IF RET <> 0 THEN _
  103.             GOTO 11330
  104. * REPLACING old line(s) by new
  105. 12900 LSET USER.NAME$ = ACTIVE.USER.NAME$
  106.       LSET USER.OPTIONS$ = MKI$(0) + _
  107.                            MKI$(0) + _
  108.                            " 0" + _
  109.                            MKI$(64) + _
  110.                            MKI$(16) + _
  111.                            MKI$(0) + _
  112.                            CHR$(23) + _
  113.                            DEFAULT.ECHOER$
  114.       LSET USER.DOWNLOADS$ = MKI$(0)
  115.       LSET USER.UPLOADS$ = MKI$(0)
  116. * ------[ first line different ]------
  117.       LSET TODAY.DL$ = MKS$(0)                                         'RATIO
  118.       LSET TODAY.BYTES$ = MKS$(0)                                      'RATIO
  119.       LSET DL.BYTES$ = MKS$(0)                                         'RATIO
  120.       LSET UL.BYTES$ = MKS$(0)                                         'RATIO
  121.       LSET SECURITY.LEVEL$ = MKI$(TEMP.SECURITY.LEVEL)
  122.       LSET ELAPSED.TIME$ = MKI$(0)
  123.       RETURN
  124. ' *****************************************************************************
  125. ' *  GET CITY AND STATE FROM NEWUSER                                          *
  126. ' *****************************************************************************
  127. '
  128. * REPLACING old line(s) by new
  129. 20760 BYTES.IN.FILE# = LOF(2)
  130. * ------[ first line different ]------
  131.       NUM.DNLD.BYTS! = LOF(2)                                          'RATIO
  132.       IF SIZE.ONLY THEN _
  133.          SIZE.ONLY = FALSE : _
  134.          RETURN
  135.       BLOCKS.IN.FILE# = MAX.BLOCK
  136. * REPLACING old line(s) by new
  137. 20791 IF PERSONAL.DOWNLOAD THEN _
  138.          GOTO 20792
  139.       GOSUB 41000
  140.       IF (INT(BLOCKS.IN.FILE# / 60) + 1) > INT(TIME.REMAINING!) THEN _
  141.          A$ = "Not enough time left!" : _
  142.          CALL UPDTCALR (FILE.NAME$ + " " + A$,2) : _
  143.          CALL QTPUT (A$,1): _
  144.          A$ = "" : _
  145. * ------[ first line different ]------
  146.      RETURN 20792
  147.       CALL CHECKRATIO (TRUE)                                           'RATIO
  148.       IF NOT OK THEN _                                                 'RATIO
  149.      RETURN 20792                                                  'RATIO
  150. * REPLACING old line(s) by new
  151. 50600 GOSUB 50620
  152.       IF NOT DOWNLOAD.COMPLETED THEN _
  153.          N$ = " Aborted" _
  154.       ELSE CALL LOGDOWN (PERSONAL.DOWNLOAD,DWN.INDEX) : _
  155. * ------[ first line different ]------
  156.        DOWNLOADS = DOWNLOADS + 1 : _
  157.        DLBYTES! = DLBYTES! + NUM.DNLD.BYTS!                        'RATIO
  158.        DL.TODAY! = DL.TODAY! + 1                                   'RATIO
  159.        BYTES.TODAY! = BYTES.TODAY! + NUM.DNLD.BYTS!                'RATIO
  160.        NUM.DNLD.BYTS! = 0                                          'RATIO
  161.            CALL MUZAK (6) : _
  162.            N$ = " Downloaded" : _
  163.            IF (DWN.INDEX = LAST.DOWNLOAD OR NOT CONCAT.FILES) THEN _
  164.               CALL SKIPLINE (1) : _
  165.               CALL QTPUT ("Download successful",1)
  166.       IF AUTODOWNLOAD.IN.PROGRESS THEN _
  167.          N$ = " AUTO" + _
  168.               MID$(N$,2)
  169.       IF INSTR(N$,"Aborted") THEN _
  170.          AUTODOWNLOAD.IN.PROGRESS = 0
  171.       A$ = ""
  172. * REPLACING old line(s) by new
  173. 50610 SUBROUTINE.PARAMETER = 2
  174.       CALL AMORPM
  175.       CALL BRKFNAME (FILE.NAME$,DR$,X$,EXTENTION$,TRUE)
  176.       Z$ = X$ + _
  177.            EXTENTION$ + _
  178.            N$ + _
  179.            " at " + _
  180.            TIM$ + _
  181.            " using " + _
  182.            FT$ + _
  183.            STR$(BYTES.IN.FILE#)
  184.       CALL UPDTCALR (Z$,2)
  185. * ------[ first line different ]------
  186.       CALL CHECKRATIO (FALSE)                                         'RATIO
  187.       IF MENU.INDEX = 6 THEN _
  188.          IF DOWNLOAD.COMPLETED THEN _
  189.             A$ = X$ : _
  190.             SUBROUTINE.PARAMETER = 5 : _
  191.             CALL LIBRARY
  192.       RETURN
  193. '
  194. ' *****************************************************************************
  195. ' *   TURN ON INTERMEDIATE ECHO                                               *
  196. ' *****************************************************************************
  197. '
  198.